home *** CD-ROM | disk | FTP | other *** search
/ Champak 132 (Alt) / Vol 132.iso / games / 3d_hyper / 3d_hyper.dcr / Scripts_73_Set Gravity.ls < prev    next >
Encoding:
Text File  |  2011-06-09  |  1.6 KB  |  63 lines
  1. property pmodel, pcamera, pMember, pSprite, pHavok, pForce, pScale
  2.  
  3. on beginSprite me
  4.   pSprite = sprite(me.spriteNum)
  5.   pHavok = pSprite.pHavok
  6.   pMember = pSprite.member
  7.   pcamera = pSprite.camera
  8.   f = pForce
  9.   if pScale then
  10.     f = f / pHavok.scale
  11.   end if
  12.   pHavok.gravity = f
  13. end
  14.  
  15. on endSprite me
  16. end
  17.  
  18. on enterFrame me
  19. end
  20.  
  21. on exitFrame me
  22. end
  23.  
  24. on isOKToAttach aScript, aSpriteType, aSpriteNum
  25.   case aSpriteType of
  26.     #graphic:
  27.       case sprite(aSpriteNum).member.type of
  28.         #shockwave3d:
  29.           return 1
  30.         #text:
  31.           if sprite(aSpriteNum).member.displayMode = #mode3d then
  32.             return 1
  33.           else
  34.             return 0
  35.           end if
  36.       end case
  37.     #script:
  38.       return 0
  39.   end case
  40.   return 0
  41. end
  42.  
  43. on getPropertyDescriptionList aScript
  44.   if the currentSpriteNum > 0 then
  45.     tGPDList = [:]
  46.     tGPDList[#pForce] = [#comment: "Gravity", #format: #vector, #default: vector(0, 0, -9.8100000000000005)]
  47.     tGPDList[#pScale] = [#comment: "Scale", #format: #boolean, #default: 1]
  48.     return tGPDList
  49.   end if
  50. end
  51.  
  52. on getBehaviorTooltip aScript
  53.   tString1 = "Set Gravity" & RETURN & RETURN
  54.   tString2 = "-" && "Type" && ":" && "Local Action" & RETURN
  55.   tString3 = "-" && "Usage" && ":" && "Drop this onto a scene with pThrusting"
  56.   return tString1 & tString2 & tString3
  57. end
  58.  
  59. on getBehaviorDescription aScript
  60.   tString1 = "SET GRAVITY OF PHYSICS SIMULATION" & RETURN & RETURN & "PARAMETERS:" & RETURN & "- Force of Gravity" & RETURN & "- Boolean check for scaled gravity force" & RETURN & "PERMITTED SPRITE TYPES:" & RETURN & "- Shockwave 3D"
  61.   return tString1
  62. end
  63.